﻿Imports System.Data.SqlClient
Public Class DF08_MR
    Inherits Conexion
    Dim cmd As New SqlCommand

    Public Function guardar(ByVal dts As Entidades.EF08Vehiculos) As Boolean
        Try
            conectado()
            cmd = New SqlCommand("sp_guardar_F08MR")
            cmd.CommandType = CommandType.StoredProcedure
            cmd.Connection = cnn
            cmd.Parameters.AddWithValue("@porvend", dts.porvendd)
            cmd.Parameters.AddWithValue("@apenomvend", dts.apenomvendd)
            cmd.Parameters.AddWithValue("@solterovend", dts.solterovendd)
            cmd.Parameters.AddWithValue("@casadovend", dts.casadovendd)
            cmd.Parameters.AddWithValue("@viudovend", dts.viudovendd)
            cmd.Parameters.AddWithValue("@divvend", dts.divvendd)
            cmd.Parameters.AddWithValue("@numnupciavend", dts.numnupciavendd)
            cmd.Parameters.AddWithValue("@apevend", dts.apevendd)
            cmd.Parameters.AddWithValue("@dnivend", dts.dnivendd)
            cmd.Parameters.AddWithValue("@levend", dts.levendd)
            cmd.Parameters.AddWithValue("@lcvend", dts.lcvendd)
            cmd.Parameters.AddWithValue("@dniextrvend", dts.dniextrvendd)
            cmd.Parameters.AddWithValue("@ciextrvend", dts.ciextrvendd)
            cmd.Parameters.AddWithValue("@pasapvend", dts.pasapvendd)
            cmd.Parameters.AddWithValue("@numdocvend", dts.numdocvendd)
            cmd.Parameters.AddWithValue("@autoridadvend", dts.autoridadvendd)
            cmd.Parameters.AddWithValue("@apenomconyvend", dts.apenomconyvendd)
            cmd.Parameters.AddWithValue("@apeapodconyvend", dts.apeapodconyvendd)
            cmd.Parameters.AddWithValue("@dniconyvend", dts.dniconyvendd)
            cmd.Parameters.AddWithValue("@leconyvend", dts.leconyvendd)
            cmd.Parameters.AddWithValue("@lcconyvend", dts.lcconyvendd)
            cmd.Parameters.AddWithValue("@dniextrconyvend", dts.dniextrconyvendd)
            cmd.Parameters.AddWithValue("@ciextrconyvend", dts.ciextrconyvendd)
            cmd.Parameters.AddWithValue("@pasapconyvend", dts.pasapconyvendd)
            cmd.Parameters.AddWithValue("@numdocconyvend", dts.numdocconyvendd)
            cmd.Parameters.AddWithValue("@autoridadconyvend", dts.autoridadconyvendd)
            cmd.Parameters.AddWithValue("@porcondd", dts.porconddd)
            cmd.Parameters.AddWithValue("@apenomcondd", dts.apenomconddd)
            cmd.Parameters.AddWithValue("@solterocondd", dts.solteroconddd)
            cmd.Parameters.AddWithValue("@casadocondd", dts.casadoconddd)
            cmd.Parameters.AddWithValue("@viudocondd", dts.viudoconddd)
            cmd.Parameters.AddWithValue("@divcondd", dts.divconddd)
            cmd.Parameters.AddWithValue("@numnupciacondd", dts.numnupciaconddd)
            cmd.Parameters.AddWithValue("@apecondd", dts.apeconddd)
            cmd.Parameters.AddWithValue("@dnicondd", dts.dniconddd)
            cmd.Parameters.AddWithValue("@lecondd", dts.leconddd)
            cmd.Parameters.AddWithValue("@lccondd", dts.lcconddd)
            cmd.Parameters.AddWithValue("@dniextrcondd", dts.dniextrconddd)
            cmd.Parameters.AddWithValue("@ciextrcondd", dts.ciextrconddd)
            cmd.Parameters.AddWithValue("@pasapcondd", dts.pasapconddd)
            cmd.Parameters.AddWithValue("@numdoccondd", dts.numdocconddd)
            cmd.Parameters.AddWithValue("@autoridadcondd", dts.autoridadconddd)
            cmd.Parameters.AddWithValue("@apenomconycondd", dts.apenomconyconddd)
            cmd.Parameters.AddWithValue("@dniconycondd", dts.dniconyconddd)
            cmd.Parameters.AddWithValue("@leconycondd", dts.leconyconddd)
            cmd.Parameters.AddWithValue("@lcconycondd", dts.lcconyconddd)
            cmd.Parameters.AddWithValue("@dniextrconycondd", dts.dniextrconyvendd)
            cmd.Parameters.AddWithValue("@ciextrconycondd", dts.ciextrconyconddd)
            cmd.Parameters.AddWithValue("@pasapconycondd", dts.pasapconyconddd)
            cmd.Parameters.AddWithValue("@numdocconycondd", dts.numdocconyconddd)
            cmd.Parameters.AddWithValue("@autoridadconycondd", dts.autoridadconyconddd)
            cmd.Parameters.AddWithValue("@apecomprador", dts.apecompradorr)
            cmd.Parameters.AddWithValue("@dnicomprador", dts.dnicompradorr)
            cmd.Parameters.AddWithValue("@lecomprador", dts.lecompradorr)
            cmd.Parameters.AddWithValue("@lccomprador", dts.lccompradorr)
            cmd.Parameters.AddWithValue("@dniextrcomprador", dts.dniextrcompradorr)
            cmd.Parameters.AddWithValue("@ciextrcomprador", dts.ciextrcompradorr)
            cmd.Parameters.AddWithValue("@pasapcomprador", dts.pasapcompradorr)
            cmd.Parameters.AddWithValue("@numdoccomprador", dts.numdoccompradorr)
            cmd.Parameters.AddWithValue("@autoridadcomprador", dts.autoridadcompradorr)
            cmd.Parameters.AddWithValue("@apecondominio", dts.apecondominioo)
            cmd.Parameters.AddWithValue("@dnicondominio", dts.dnicondominioo)
            cmd.Parameters.AddWithValue("@lecondominio", dts.lecondominioo)
            cmd.Parameters.AddWithValue("@lccondominio", dts.lccondominioo)
            cmd.Parameters.AddWithValue("@dniextrcondominio", dts.dniextrcondominioo)
            cmd.Parameters.AddWithValue("@ciextrcondominio", dts.ciextrcondominioo)
            cmd.Parameters.AddWithValue("@pasapcondominio", dts.pasapcondominioo)
            cmd.Parameters.AddWithValue("@numdoccondominio", dts.numdoccondominioo)
            cmd.Parameters.AddWithValue("@autoridadcondominio", dts.autoridadcondominioo)
            cmd.Parameters.AddWithValue("@observaciones", dts.observacioness)
            cmd.Parameters.AddWithValue("@lugar", dts.lugarr)
            cmd.Parameters.AddWithValue("@diafecha", dts.diafechaa)
            cmd.Parameters.AddWithValue("@mesfecha", dts.mesfechaa)
            cmd.Parameters.AddWithValue("@añofecha", dts.añofechaa)
            cmd.Parameters.AddWithValue("@autoriza", dts.autorizaa)
            cmd.Parameters.AddWithValue("@docnum", dts.docnumm)
            cmd.Parameters.AddWithValue("@recibi", dts.recibii)

            If cmd.ExecuteNonQuery Then
                Return True
            Else
                Return False
            End If

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        desconectado()
    End Function


    Public Function modificar(ByVal dts As Entidades.EF08Vehiculos) As Boolean
        Try
            conectado()
            cmd = New SqlCommand("sp_modificar_F08MR")
            cmd.CommandType = CommandType.StoredProcedure
            cmd.Connection = cnn
            cmd.Parameters.AddWithValue("@porvend", dts.porvendd)
            cmd.Parameters.AddWithValue("@apenomvend", dts.apenomvendd)
            cmd.Parameters.AddWithValue("@solterovend", dts.solterovendd)
            cmd.Parameters.AddWithValue("@casadovend", dts.casadovendd)
            cmd.Parameters.AddWithValue("@viudovend", dts.viudovendd)
            cmd.Parameters.AddWithValue("@divvend", dts.divvendd)
            cmd.Parameters.AddWithValue("@numnupciavend", dts.numnupciavendd)
            cmd.Parameters.AddWithValue("@apevend", dts.apevendd)
            cmd.Parameters.AddWithValue("@dnivend", dts.dnivendd)
            cmd.Parameters.AddWithValue("@levend", dts.levendd)
            cmd.Parameters.AddWithValue("@lcvend", dts.lcvendd)
            cmd.Parameters.AddWithValue("@dniextrvend", dts.dniextrvendd)
            cmd.Parameters.AddWithValue("@ciextrvend", dts.ciextrvendd)
            cmd.Parameters.AddWithValue("@pasapvend", dts.pasapvendd)
            cmd.Parameters.AddWithValue("@numdocvend", dts.numdocvendd)
            cmd.Parameters.AddWithValue("@autoridadvend", dts.autoridadvendd)
            cmd.Parameters.AddWithValue("@apenomconyvend", dts.apenomconyvendd)
            cmd.Parameters.AddWithValue("@apeapodconyvend", dts.apeapodconyvendd)
            cmd.Parameters.AddWithValue("@dniconyvend", dts.dniconyvendd)
            cmd.Parameters.AddWithValue("@leconyvend", dts.leconyvendd)
            cmd.Parameters.AddWithValue("@lcconyvend", dts.lcconyvendd)
            cmd.Parameters.AddWithValue("@dniextrconyvend", dts.dniextrconyvendd)
            cmd.Parameters.AddWithValue("@ciextrconyvend", dts.ciextrconyvendd)
            cmd.Parameters.AddWithValue("@pasapconyvend", dts.pasapconyvendd)
            cmd.Parameters.AddWithValue("@numdocconyvend", dts.numdocconyvendd)
            cmd.Parameters.AddWithValue("@autoridadconyvend", dts.autoridadconyvendd)
            cmd.Parameters.AddWithValue("@porcondd", dts.porconddd)
            cmd.Parameters.AddWithValue("@apenomcondd", dts.apenomconddd)
            cmd.Parameters.AddWithValue("@solterocondd", dts.solteroconddd)
            cmd.Parameters.AddWithValue("@casadocondd", dts.casadoconddd)
            cmd.Parameters.AddWithValue("@viudocondd", dts.viudoconddd)
            cmd.Parameters.AddWithValue("@divcondd", dts.divconddd)
            cmd.Parameters.AddWithValue("@numnupciacondd", dts.numnupciaconddd)
            cmd.Parameters.AddWithValue("@apecondd", dts.apeconddd)
            cmd.Parameters.AddWithValue("@dnicondd", dts.dniconddd)
            cmd.Parameters.AddWithValue("@lecondd", dts.leconddd)
            cmd.Parameters.AddWithValue("@lccondd", dts.lcconddd)
            cmd.Parameters.AddWithValue("@dniextrcondd", dts.dniextrconddd)
            cmd.Parameters.AddWithValue("@ciextrcondd", dts.ciextrconddd)
            cmd.Parameters.AddWithValue("@pasapcondd", dts.pasapconddd)
            cmd.Parameters.AddWithValue("@numdoccondd", dts.numdocconddd)
            cmd.Parameters.AddWithValue("@autoridadcondd", dts.autoridadconddd)
            cmd.Parameters.AddWithValue("@apenomconycondd", dts.apenomconyconddd)
            cmd.Parameters.AddWithValue("@dniconycondd", dts.dniconyconddd)
            cmd.Parameters.AddWithValue("@leconycondd", dts.leconyconddd)
            cmd.Parameters.AddWithValue("@lcconycondd", dts.lcconyconddd)
            cmd.Parameters.AddWithValue("@dniextrconycondd", dts.dniextrconyvendd)
            cmd.Parameters.AddWithValue("@ciextrconycondd", dts.ciextrconyconddd)
            cmd.Parameters.AddWithValue("@pasapconycondd", dts.pasapconyconddd)
            cmd.Parameters.AddWithValue("@numdocconycondd", dts.numdocconyconddd)
            cmd.Parameters.AddWithValue("@autoridadconycondd", dts.autoridadconyconddd)
            cmd.Parameters.AddWithValue("@apecomprador", dts.apecompradorr)
            cmd.Parameters.AddWithValue("@dnicomprador", dts.dnicompradorr)
            cmd.Parameters.AddWithValue("@lecomprador", dts.lecompradorr)
            cmd.Parameters.AddWithValue("@lccomprador", dts.lccompradorr)
            cmd.Parameters.AddWithValue("@dniextrcomprador", dts.dniextrcompradorr)
            cmd.Parameters.AddWithValue("@ciextrcomprador", dts.ciextrcompradorr)
            cmd.Parameters.AddWithValue("@pasapcomprador", dts.pasapcompradorr)
            cmd.Parameters.AddWithValue("@numdoccomprador", dts.numdoccompradorr)
            cmd.Parameters.AddWithValue("@autoridadcomprador", dts.autoridadcompradorr)
            cmd.Parameters.AddWithValue("@apecondominio", dts.apecondominioo)
            cmd.Parameters.AddWithValue("@dnicondominio", dts.dnicondominioo)
            cmd.Parameters.AddWithValue("@lecondominio", dts.lecondominioo)
            cmd.Parameters.AddWithValue("@lccondominio", dts.lccondominioo)
            cmd.Parameters.AddWithValue("@dniextrcondominio", dts.dniextrcondominioo)
            cmd.Parameters.AddWithValue("@ciextrcondominio", dts.ciextrcondominioo)
            cmd.Parameters.AddWithValue("@pasapcondominio", dts.pasapcondominioo)
            cmd.Parameters.AddWithValue("@numdoccondominio", dts.numdoccondominioo)
            cmd.Parameters.AddWithValue("@autoridadcondominio", dts.autoridadcondominioo)
            cmd.Parameters.AddWithValue("@observaciones", dts.observacioness)
            cmd.Parameters.AddWithValue("@lugar", dts.lugarr)
            cmd.Parameters.AddWithValue("@diafecha", dts.diafechaa)
            cmd.Parameters.AddWithValue("@mesfecha", dts.mesfechaa)
            cmd.Parameters.AddWithValue("@añofecha", dts.añofechaa)
            cmd.Parameters.AddWithValue("@autoriza", dts.autorizaa)
            cmd.Parameters.AddWithValue("@docnum", dts.docnumm)
            cmd.Parameters.AddWithValue("@recibi", dts.recibii)

            If cmd.ExecuteNonQuery Then
                Return True
            Else
                Return False
            End If

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        desconectado()
    End Function

End Class
